[VB6]服务程序的启动问题

我使用ntsvc.ocx创建了一个服务程序，主窗口启动代码如下：

Private Sub Form_Load()
App.TaskVisible = False
Me.Hide

If Command = "-install" Then
NTSvc.Interactive = True
If NTSvc.Install Then
MsgBox "注册服务成功", vbOKOnly
Else
MsgBox "注册服务失败", vbOKOnly
End If
End
Else
If Command = "-install" Then
NTSvc.Interactive = True
If NTSvc.Install Then
MsgBox "注销服务成功", vbOKOnly
Else
MsgBox "注销服务失败", vbOKOnly
End If
End
End If
End If

NTSvc.ControlsAccepted = svcCtrlStartStop
NTSvc.StartService

End Sub

服务的启动和停止事件中另有处理。程序编译、注册服务正常，从服务控制管理器SCM中启停该服务，也都正常。
问题：该服务停止时，直接双击运行该程序，启动后不能工作，进程管理器中可以看到该程序。
在

很菜的VB6.0程序问题 怎样启动金山毒霸的服务程序 如何启动金山毒霸的服务程序? vb6.O 程序调试问题。 vb6写的程序，有延时的问题吗 VB6-程序运行后不停的消耗内存问题 VB6.0的问题？ vb6.0的问题 VB6的一个问题!!! 关于启动项服务的问题。